******************
**** Figure 8 ****
******************

* Run table b13 to get estimates e *
do "$dofiles/table b13" 


coefplot e, keep(treatmentidentityd2* treatmentidentityd3* treatmentidentityd4* collectivt* pct* highvisiblet* highqualityt* preratiow1t* ) xline(0)  ///
order(treatmentidentityd2* treatmentidentityd3* treatmentidentityd4* collectivt* pct* highvisiblet* highqualityt* preratiow1t*  ) ciopts(recast(rspikelin) lcolor(black))  citop ///
headings(preratiow1treatmentidentityd2 = "{bf:Pre-intervention collection effiency}"  highvisibletreatmentidentityd2 = "{bf:Visible sticker placement}"  collectivtreatmentidentityd2 = "{bf:Shared meter}" pctreatmentidentityd2 = "{bf:Personal contact}", labsize(small)) ///
coeflabel(treatmentidentityd2="Basic" treatmentidentityd3="PIDA" treatmentidentityd4="NIDA" preratiow1treatmentidentityd2="{c 215} Basic" preratiow1treatmentidentityd3="{c 215} PIDA" preratiow1treatmentidentityd4="{c 215} NIDA"  highvisibletreatmentidentityd2="{c 215} Basic" highvisibletreatmentidentityd3="{c 215} PIDA" highvisibletreatmentidentityd4="{c 215} NIDA" pctreatmentidentityd2="{c 215} Basic" pctreatmentidentityd3="{c 215} PIDA" pctreatmentidentityd4="{c 215} NIDA" collectivtreatmentidentityd2="{c 215} Basic" collectivtreatmentidentityd3="{c 215} PIDA" collectivtreatmentidentityd4="{c 215} NIDA", labsize(small)) format(%9.3f) ///
levels(90) graphregion(color(white) lcolor(black)) ytick(0) xlabel(#15, angle(90) nogextend) ysize(4) ///
msymbol(square) mlcolor(black) mfcolor(black) msize(small) 

graph export "$filepath/output_logs/figure 8.pdf", replace

